;; supercollider/server.scm - (c) rohan drape, 2003-2005

;; A <server_> represents an SC3 synthesis server, 'scsynth'.

(define-structure server_ (address options booted? osc latency bID))

;; Create a new server record.  `addr' is a <network-address> and
;; `opt' is a <srver-options> value.  

(defineV (make-server_ addr opt)
  (make-server_* 
   addr opt #f #f0.1
   (make-identifierR/C 0 (server-options-get opt 'b))))
